(*
    Author: Huanming Peng
    Date:   3 September 2013
    Description:
                Find the sum and average of five predefined numbers
    Version:
            1.0 - original version
*)

program SumAverage;

const
  NumberOfIntegers = 5;

var
  A, B, C, D, E : integer;
  Sum :Integer;
  Average : Real;

begin
  A := 45;
  B := 7;
  C := 68;
  D := 2;
  E := 34;
  Sum := A + B + C + D + E;
  Average := Sum / NumberOfIntegers;
  WriteLn('Number of integers = ', NumberOfIntegers);
  WriteLn('Number1 = ', A);
  WriteLn('Number2 = ', B);
  WriteLn('Number3 = ', C);
  WriteLn('Number4 = ', D);
  WriteLn('Number5 = ', E);
  WriteLn('Sum = ', Sum);
  WriteLn('Average = ', Average);
  ReadLn;
end.

